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INTRODUCTION. 


This handbook is designed to give you, the user, a collection of 
handy Super 80 programs, which are written in BASIC. 


These fantastic programs will keep you busy for hours. While 
most of the programs contained in this book are games for your 
amusement, you will find that there are a few business 
orientated programs which you could apply in a small business 
Situation. 


You'll find that by uSing these programs you learn more about 
the Super 80 and the actual programming of the computer. And 
remember these programs were written by users like yourself. 


When we began the Super 80 project, we thought it would be 
fairly popular, but quite frankly we've been staggered by the 
enormous response. The sales of the computer kit have been very 
gratifying, and far higher than our expectations. Even more 
exciting, though has been the tremendous response from Super 80 
builders in sending us hints, Suggestions and programs to pass 
on to other enthusiasts. Who could have guessed that a little 
computer kit could generate so much yood will! 


We've now received so much Super 30 software that we've been 
able to pick out the best of them to make up this booklet. So 
key them in and have fun! 


Of course you don't have to use any of them exactly as they 
Stand, unless you wish. You can modify them, change them, add to 
them, or even just use them aS a Source of good ideas when 
you're writing programs of your own. 


Thank you to everyone who has contributed their programs. For 
those of you who haven't had a program included, don't give up. 
We'll still be publishing the best programs sent to us in our 
regular Super 80 News, and if we get enough of them, who knows? 
We might be able to publish another one of these booklets. 
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1.SUPER INVADERS. 


The following program sent in by:- 


Mr C. L Burke 
227 Broadwater Road, 
Mt Gravatt, 4122. QLD. 


08218 REM WRITTEN BY C.L.BURKE 
66228 REM 19/86/1982 

909038 REM THE MACHINE LANGUAGE 

69449 REM AT THE START OF THE 

(8050 REM PROGRAM WAS DEVELOPED 

60868 REM BY THE BRISBANE 

68076 REM USER'S GROUP . 

0681800 REM POKE IN INKEYS DATA 

99105 R=190:REM PAGE OF CHOICE 

68116 FOR M=@ TO 23 :READ N 

08120 POKE M,N:NEXT M 

0130 DATA 62,247,24,6,62,253 

080149 DATA 24,2,62,254,1,0,2 

08150 DATA 211,248,219,258,254 

02168 DATA 127,192,1,1,0,201 

08260 REM START GAME 

00218 S=R*256-1:REM START OF PAGE 

66215 CLS 

00228 Z=6:REM SCORE 

00225 M=481:REM MIN. POSITION 

00238 P=496:REM PLAYER POSITION 

60248 Q=8:REM INVADER POSITION 

00245 CLS:GOSUB 2080:REM INSTRUCTIONS 

668250 CLS:INPUT "READY ?"Z@$:CLS 

68255 OUT 241,R 

08260 REM LOOP 

882868 GOSUB 400 

682998 IF USR(@)=l1 THEN GOSUB 9862 

98300 GOTO 262 

084090 LET X=USR(4):LET Y=USR(8):POKE P+S,32:LET P=P-X+yY 
608485 POKE S-2,95:REM RESTORE CURSOR 

69410 IF P>512 THEN LET P=512 

90420 IF P<M THEN LET P=M 

080430 POKE P+S,35 

02448 GOSUB 80@:RETURN 

009808 REM INVADER MOVE 

08805 L=1l:IF D>1 THEN LET L=INT(2*RND) *D 
00818 POKE Q+S,32:LET O=Q+L 

08820 IF PEEK(Q+S)=42 THEN LET Q=0Q+1:GOTO 829 
00825 IF Q>=P THEN 1000 

00830 POKE Q+S,62:RETURN 

08980 REM FIRE 

98916 FOR I=P TO Q STEP -32 

02915 GOSUB 40@:IF (I=Q) AND (Q>M) THEN LET M=Q+1 
689260 IF I=Q THEN POKE S+I1,42:LET Q=@:LET Z=Z+1:LET I=@:NEXT I:RETURN 
09925 IF PEEK(I+S)=42 THEN LET I=@:NEXT I:RETURN 
68930 POKE I+S,94:FOR J=l TO 2:NEXT J 

08948 POKE I+S,32:NEXT I 

08958 RETURN 

61080 REM END GAME 

91005 POKE S-2,95 


61907 CLS 
01810 CURS(274):PRINT"BOOM !!!!" 
91928 PRINT “YOUR SCORE:";Z (Continued....) 


81830 
(0180408 
91950 
G2000 
82010 
G2020 
92030 
G2040 
82050 
92060 
G2970 
02080 
G2085 
92090 
92100 
92105 
92110 


INPUT "PLAY AGAIN >"Z@S 

IF Z0S="Y" THEN RUN 

END 

INPUT" DO YOU WANT INSTRUCTIONS ?"Z@S 

IF Z20$(;1,1)<>"Y" THEN 2100 

PRINT" THE AIM OF THE GAME IS TO" 

PRINT "SHOOT DOWN AS MANY THINGS '>!" 

PRINT "AS POSSIBLE ."\"IF YOU SHOOT ONE DOWN IT THEN" 
PRINT "DIES BECOMING '*' —- A BARRIER"\"TO YOUR BULLETS."\ 
PRINT "THE LIVE THINGS HOP OVER THE "\"DEAD THINGS" 
PRINT" YOU ARE THE '#' DOWN THE BOTTOM" 

INPUT"PRESS RETURN 3"Z@S:CLS 

PRINT "PUSH :-"\" SHIFT: LEFT"\" REPT: RIGHT"\" 

PRINT" YOU MAY KILL A THING ALSO IF IT"\"IS RIGHT BESIDE YOU" 
PRINT "DIFFICULTY LEVEL(1-160)" 

INPUT"1-EASY,1@-HARD > "D:IF D<l THEN 21960 

RETURN 


2.ONE-ARMED BANDIT 


The following program was sent in by:- 


This 
You can obdet 


Mr Horst Lau, 
29 Vallingby Ave, 


Hebersham, 2770. N.S.W. 


poker machine program and 


a 


your life away!! 


68120 
BV136 
08149 
00158 
60160 
0091708 
OB180 
00192 
BO200 
00210 
08226 
08230 
08240 
BO258 
BB268 
B8279 
08280 
D0290 
B0300 
00310 
60320 
08330 
00340 
00350 
98360 
00370 
3838 
39399 
JG400 


PRINT "YOU ARE IN THE H&K CASINO,IN FRONT OUR" 
PRINT “ONE-ARMED BANDITS.BET FROM $1 TO $1006." 


CTRL: 


puts you in the H & K casino. 
any amount of money from $1 to $100, but don't bet 


FIRE" 


PRINT "TO PULL THE ARM,PUNCH THE RETURN KEY AFTER MAKING YOUR BET""" 


LET P=@ 

PRINT: PRINT "YOUK BET"; 
INPUT M 

IF M>100 THEN 806@ 
IFM<l THEN 880 
M1IS=INT(M) 

GOSUB 1272 

PRINT 

LET X=INT(6*RND+1) 
LET Y=INT(6*RND+1) 
LET Z=INT(6*RND+1) 


PRINT 

IF X=l THEN 910 
IF X=2 THEN 9390 
IF X=3 THEN 9598 
IF X=4 THEN 970 
IF X=5 THEN 999 
IF X=6 THEN 1019 
IF Y=1 THEN 1939 
IF Y=2 THEN 19058 
IF Y=3 THEN 19706 
IF Y=4 THEN 160998 
IF Y=5 THEN 1110 
IF Y=6 THEN 1130 
IF Z=1 THEN 11598 
IF Z=2 THEN 1170 


(Continued....) 


D041 
BB420 
09430 
JG44B 
IB450 
08469 
00476 
OB48¢ 
BB490 
OI5H88 
20519 
DO5208 
69530 
OB546 
08550 
H8569 
CO57G 
BE589d 
JO596 
IBOBO 
BBO1G 
DES2ZE 
08630 
JB646 
BYO50 
BB600 
J0670 
BVO80 
BB6I9ID 
00700 
00710 
90720 
90739 
00749 
B8075@ 
027698 
GO77% 
90786 
80798 
BO88G 
HO3816 
G0829 
80830 
GB840 
98850 
G0800 
88870 
BO88O 
G0890 
BVIBD 
OBI9I1G 
96920 
90930 
G0940 
09950 
G0960 
60979 
OB98A 
BH990 
B1O00 


IF 
IF 
If 
IF 
IF 
IF 
IF 
PRINT 
PRINT 


KX KNNNN 
Hou We tl 
NNK DOB WwW 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


"YOU LOST." 


LET P=P-M 


PRINT 


"YOUR STANDINGS ARE $"P 


1198 
12198 
1230 
1259 
608 
639 
650 


PRINT “AGAIN"; 
INPUT AlS 
IF Als="y" 


PRINT 


IF P<g 
IF P= 
IF P>g 


THEN 
THEN 
THEN 


GOTO 1341 
IF Y=Z THEN 
IF Y=] THEN 
GOTO 1341 


IF Z=] 


THEN 


GOTO 472 
IF Z=l1 THEN 
GOTO 1341 


PRINT "PAY UP! 


GOTO 1358 


PRINT "HEY, YOU BROKE EVEN." 


GOTO 1352@ 


PRINT 


GOTO 1358 
IF Z=l THEN 780 


PRINT:PRINT "**TOP DOLLAR**" 
"YOU WON!" 
P=(10*M+M+P) 


PRINT 


GOTO 5190 


PRINT:PRINT "*** JACKPOT***" 


PRINT 


PRINT:PRINT "*DOUBLE BAR*" 


PRINT 


PRINT 


THEN 1690 


670 
699 
716 


730 
820 


820 


820 


"COLLECT YOUR 


"YOU WON!" 
P=(100*M+M+P) 
GOTO 5198 


"YOU WON!" 
P=(5*M+M+P) 
GOTO 510 


"HOUSE LIMITS ARE $106" 


GOTO 169 


PRINT 


"MINIMUM BET IS $1" 


GOTO 1628 
GOTO 228 


PRINT 


[Al 127;Al1 


GOTO 3380 


PRINT [Al 


GOTO 339 


PRINT 


[Al 127;A1 


GOTO 3398 


PRINT [Al 


GOTO 3390 


PRINT [Al 


GOTO 338 


127;Al 


127;Al 


127;Al 


28;Al 29;Al 


FROM THE H&K CASHIER." 


127) ;:GOSUB 13190 


22;Al 127];:GOSUB 13120 
3;Al 127];:GOSUB 13120 
6;Al 127];:GOSUB 1318 


25;Al 127);:GOSUB 1319 


PLEASE LEAVE YOUR MONEY ON THE TERMINAL." 


(Continued....) 


01016 
G102¢8 
G1930 
G91940 
G1G50 
H1G860 
919706 
B1G8O 
B199G 
G11B¢0 
91110 
G1120 
G9113¢ 
01142 
G115¢ 
91169 
81170 
HS118¢ 
HL199 
V1208 
01216 
81220 
G1230 
G61246 
G1259 
GH12600 
G1270 
91296 
91300 
013196 
G1320 
91330 
91340 
91341 
01342 
91343 
G1344 
G135¢ 
G9999 


PRINT [Al 127;Al 27;Al 127];:GOSUB 1310 
GOTO 3328 

PRINT [Al 127;Al 28;Al 29;Al 127];:GOSUB 1319 
GOTO 3920 

PRINT [Al 127;Al 22;Al 127];:GOSUB 1310 
GOTO 392 

PRINT [Al 127;Al 3;Al1 127];:GOSUB 1319 
GOTO 392 

PRINT [Al 127;Al 6;Al1l 127];:GOSUB 1319 
GOTO 3990 

PRINT{[A1] 127;Al 25;Al1 127];: GOSUB 13192 
GOTO 398 

PRINT [Al 127;Al 27;Al 127];:GOSUB 1310 
GOTO 3906 

PRINT [Al 127;Al 28;Al1 29;Al 127]; 

GOTO 45@ 

PRINT [Al 127;Al 22;Al1 127]; 

GOTO 458 

PRINT [Al 127;Al 3;Al 127]; 

GOTO 45¢ 

PRINT [Al 127;Al 6;Al 127]; 

GOTO 458 

PRINT[Al] 127;Al 25;Al 127]; 

GOTO 456 

PRINT [Al 127;Al 27;Al1 127]; 

GOTO 4598 

FOR Q4=1 TO 18 

NEXT Q4 

RETURN 


FOR T6=l1 TO 5 

PRINT [A2 46]; 

NEXT T6 

RETURN 

PRINT:PRINT "DOUBLE! !" 
PRINT "YOU WON!" 
P=(2*M+M+P) 

GOTO 519 

STOP 

END 


3. PERIL. 


The following program was sent in by:- 


Mr John Fitzgerald, 
6 Buxton Street, 
West Footscray, 


3012. VIC. 


In Peril, you are an A.S.1I.0. agent on a top secret assignment. 
You have to travel 30@km across the dangerous Bass Strait in a 
Small rubber dinghy, powered by a small outboard inotor. Your 
reserve fuel tank holds 5 litres of fuel--this 1s enough to 
refuel your engine 5 times. Your reserve fuel tank will be 
filled only if you can find an oil rig. You can give five 
different commands throughout the game. Remember don't overheat 


your engine!! 


GIGS 
DO019 
BOB28 
G89030 
GO848 
B805B8 
G00808 
90070 
GBB80 
GOGB9B 
00095 
GG100 
00105 
60110 
GG125 
00130 
69133 
08134 
90135 
609136 
68137 
90138 
09139 
H8140 
O6G0141 
G9G142 
60145 
OB15¢ 
98155 
96168 
08165 
6817 
90175 
08185 
GB190 
90195 
BB200 
BB205 
C0210 
98211 
G9@212 
09213 


CLS 

FOR T=64 TO 75 

READ B 

POKE T,B 

NEXT T 

DATA 205,31,192,254,0,202,64,0,58,88,8,201 
PRINT" PERIL" 

PRINT:PRINT:PRINT 

PRINT"WOULD YOU LIKE INSTRUCTIONS? "; 
USR(64) 
M=PEEK (8@) 
IF (M=78) 
IF (M=89) 
GOSUB 1980 
GOSUB 798¢@ 
CLS 

D=INT (RND* 3+6) 
B=0 


THEN CLS:T=0:GOTO 125 
THEN 110 ELSE 9@ 


OR 
OR 


(M=110) 
(M=121) 


ton Ww om du 
QQ Vaeaeaunwm 


K>299 THEN 100090 


U=1 THEN PRINT" YOUR ENGINE NEEDS REFUELLING." 
1820 


CHNUVUVMO URN PC 
1 yon tt 


Cc 
~ 


IF 
IF U<@ THEN 
P=P+] 

IF P<5 THEN 212 

O=INT(12*RND+1) 

R=R+0 

IF R<K THEN 210 

PRINT" THE RUSSIANS HAVE CAPTURED YOU" 
PRINT"NICE TRY !" 

GOTO 190800 

PRINT" THE RUSSIANS ARE ";K-R;" 
PRINT"BEHIND YOU." 

IF K=l1 THEN 214 
AlS="Kms.":GOTO 215 


Kins." 


(Continued....) 


OBO214 
BG8215 
G00216 
G60218 
GH219 
G02209 
G08225 
80230 
99235 
08240 
88245 
08246 
00247 
08250 
88255 
08260 
$8265 
GB999 
G100G 
G1985 
01018 
W115 
G1820 
G819825 
91030 
91035 


01040 
91045 


G105¢ 
91055 
1860 
91865 
91870 
81875 
91089 
01085 
91686 
Q1090 
01895 
H1160 
981105 
G1119 
OH1115 
91116 
91120 
B2000 
82005 
92010 
92015 
02016 
G2020 
G2022 
G2023 
82025 
92030 
G2035 
92040 
92041 
92045 
0928046 
G2050 


AlS=" Km." 

PRINT" YOU HAVE TRAVELLED";K;A1$ 
PRINT" ALTOGETHER." 

PRINT 

I=@ 

PRINT"WHAT IS YOUR COMMAND? "; 

USR (64) 

M=PEEK (86) 

IF (M<49) OR (M>55) THEN 225 
PRINT[A] M] 

M=M-48 

IF M=7 THEN 10500 

CLS 

GOSUB (M+1l)*1000 

IF I>@ THEN 219 

IF Z=l1 THEN 19002 

GOTO 142 

END 

REM INSTRUCTIONS 

CLS 

PRINT" YOU HAVE JUST BEEN RECRUITED" 
PRINT"BY A.S.1I.O AND GIVEN A TOP" 
PRINT"SECRET ASSIGNMENT.YOUR DUTY IS" 
PRINT"TO TRAVEL 300 Km ACROSS THE " 
PRINT" PERILOUS BASS STRAIT & DELIVER" 
PRINT"VITAL INFORMATION PERTAINING" 


PRINT"TO THE SECURITY OF AUSTRALIA." 
PRINT" UNFORTUNATELY YOU MUST MAKE" 


PRINT"THE CROSSING IN A SMALL RUBBER" 
PRINT"DINGHY POWERED BY A SMALL OUT" 
PRINT"BOARD MOTOR.YOUR RESERVE " 
PRINT" FUEL TANK WILL BE FILLED IF " 
PRINT" YOU ARRIVE AT AN OIL RIG" 
PRINT 

PRINT"PRESS ANY KEY TO CONTINUE"; 
USR (64) 

CLS 

PRINT" YOUR RESERVE FUEL TANK HOLDS" 
PRINT"S LITRES OF FUEL. THIS IS" 
PRINT" ENOUGH TO REFUEL YOUR ENGINE 5" 
PRINT" TIMES." 

PRINT" YOU WILL BE ASKED FOR COMMANDS" 
PRINT"DURING THE GAME." 

T=1 

RETURN 

REM AHEAD FULL SPEED 

CLS 

E=E+3 

IF E>D THEN GOSUB 9088 

IF Z=1 THEN 20880 

GOSUB 80990 

IF Z=1 THEN 20890 

IF Z=2 THEN 2089 

IF B>@ THEN 2046 

L=2* INT(12*RND+1) 

GOTO 29868 

L=INT(13*RND+1) 

IF Z=3 THEN 2050 

PRINT"BAD WEATHER HAS HINDERED " 
PRINT" PROGRESS." 

B=B-] 


(Continued....) 


02951 K=K+L 
82855 GOTO 208¢ 

02060 K=K+L 

02061 IF Z=3 THEN 2080 

62065 PRINT"YOUR DINGHY IS SKIMMING ACROSS" 
62070 PRINT"THE WATER." 

02075 PRINT 

62088 RETURN 

63000 REM AHEAD MODERATE SPEED 

03885 CLS 

03010 E=E+1 

93015 IF E>D THEN GOSUB 9880 

03016 IF Z=1 THEN 398¢ 

03028 GOSUB 8000 

03022 IF Z=l1 THEN 308 

$3023 IF Z=2 THEN 3082 

630625 IF B>@ THEN 3949 

63030 L=INT(13*RND+1) 

63835 GOTO 3062 

03646 L=INT(13*RND/2+1) 

63641 IF Z=3 THEN 3852 

03045 PRINT"BAD WEATHER HAS HINDERED" 
03046 PRINT"PROGRESS." | 

63050 B=B-] 

63051 K=K+L 

83355 GOTO 3886 

03068 K=K+L 

03061 IF Z=3 THEN 3080 

03065 PRINT"YOUR DINGHY IS PLOUGHING" 
03876 PRINT"THROUGH THE WATER" 

03075 PRINT 

030808 RETURN 

949090 REM STOP THE ENGINE 

646005 E=Q 

04006 CLS 

64910 PRINT"YOUR ENGINE HAS NOW COOLED " 
948015 PRINT"DOWN." 

64020 PRINT 

94049 E=0 

04050 D=INT(RND*5+5) 

048980 RETURN 

095000 REM FILL PETROL TANK 

05001 CLS 

65005 A=A-1 

05010 IF A<® THEN 10000 

65015 PRINT" YOUR ENGINE HAS BEEN REFUELLED" 
65016 PRINT 

05020 U=5 

25025 I=l 

95080 RETURN 

96000 REM STATUS 

66001 IF U<@ THEN 100802 

66002 CLS 

960905 IF D=E THEN 60935 

06019 IF E=8 THEN LET A@S="NORMAL":GOTO 6025 
06015 IF D-E=l THEN LET A@S="EXTRMELY HIGH.":GOTO 69025 


(Continued....) 


G6016 

JO820 

G6025 

96526 

06030 

868035 
96036 
6940 
06841 
66942 
96043 
86044 
86045 
G8605¢ 
G6051 
86052 
06053 
06054 
860855 
86068 
860601 
86062 
96863 
60004 
G6005 
86070 
G6075 
86076 
96079 
H6080 
G7000 
07081 
97010 
87015 
970820 
97025 


0703@ 
97835 
07840 
07845 
07050 
870860 
87065 
9797 
97075 
97076 
97077 
07089 
B8Ee0 


B8B73 


08015 
8880156 
08020 
08021 
08025 
08036 
08831 
98035 


IF D-E=2 THEN LET A@S="VERY HIGH.":GOTO 
LET AGS="ABOVE NORMAL." 

PRINT" YOUR ENGINE TEMPERATURE IS" 
PRINT AOS 

GOTO 60486 

PRINT" DANGER! OVERHEATING OF YOUR" 
PRINT" ENGINE IS NOW IMMINENT!" 

IF P<4 THEN 6651 

IF K-M=l1 THEN 6044 

A2Ss=" Kms. " 

GOTO 6645 

A2S=" Km." 

PRINT"THE RUSSIANS ARE";K-R;A2S 
PRINT"BEHIND YOU." 

IF A=l THEN 6054 

A3S="\ LITRES" 

GOTO 6855 

A3S=" LITRE" 

PRINT" YOU HAVE";A;A3$;" OF FUEL" 
PRINT"LEFT IN YOUR RESERVE TANK" 
IF U=l THEN 6064 

A4S=" COMMANDS" 

GOTO 6065 

A4S=" COMMAND" 

PRINT" YOU CAN GO";:U;A4S$ 
PRINT"WTHOUT REFUELING YOUR ENGINE." 
I=l 

U=U-1 

PRINT 

RETURN 

REM COMMANDS 

PRINT 

PRINT" —----COMMANDS---" 

IF T=0 THEN PRINT 

PRINT"#1 AHEAD FULL SPEED" 
PRINT"#2 AHEAD MODERATE SPEED" 


PRINT" #3 STOP THE ENGINE" 
PRINT"#4 REFUEL ENGINE" 
PRINT" #5 STATUS" 

PRINT"#6 LIST COMMANDS" 
PRINT"#7 END THE GAME" 

IF T=8 THEN PRINT 
PRINT"PRESS ANY KEY TO CONTINUE"; 
USR (64) 

CLS 

T= 

I=1l 

RETURN 

REM RANDOM POSSIBILITIES 


TF OC ABR TARA S425 

PRINT"A STRAY ARGENTIAN TORPEDO HAS" 
PRINT" HIT YOU!" 

Z=1 

RETURN 

If J<399 THEN 8649 

PRINT" YOU HAVE BEEN HIT BY A TIDAL" 
PRINT" WAVE!" 

Z=1 


6925 


(Continued....) 


98836 
B8040 
88845 
98046 
08050 
B8G51l 
88055 
G8069 


B8061 
88865 
B8C66 
98079 
68075 
08876 
C8880 
08081 
68885 
B8099 
88095 
98096 
081900 
88105 
98112 
G8115 
88120 
88125 
981390 
88131 
98134 
98135 
08149 
98145 
98150 
88151 
68152 
98155 
98168 
68165 
98170 
88175 
88180 
98185 
98190 
98195 
G8200 
88205 
88206 
98218 
Q8215 
08228 
88225 
88230 
885235 
98240 
88245 
88250 
98255 
G98268 
8265 
98270 


RETURN 

IF J<398 THEN 8855 

PRINT"AN IDIOT TOWING AN ICEBERG HAS" 
PRINT" JUST RAMMED YOU!" 

Z=1 

RETURN 

IF J<397 THEN 8078 

PRINT"AN ATOMC BOMB HAS EXPLODED ON" 


PRINT"TOP OF YOU!" 

Z=1 

RETURN 

IF J<396 THEN 8685 

PRINT" YOUR RUBBER DINGHY HAS BEEN" 
PRINT" PUNCTURED BY A SEA URCHIN!" 
Z=1 

RETURN 

J=INT (RND*¥106+1) 

IF J<94 THEN 81900 

B=2 

RETURN 

J=INT(RND*¥12+1) 

IF J>2 THEN 8148 

PRINT" YOU HAVE ARRIVED AT AN OIL RIG" 
PRINT" THE WORKERS ARE FILLING UP “™ 
PRINT" YOUR RESERVE FUEL TANK." 

PRINT 

U=5:A=5 

I=] 

Z=3 

RETURN 

J=INT(100*RND+1) 

IF J>5 THEN 8520 

Z=2 

CLS 

I=] 

PRINT" CHINESE SPIES HAVE CAPTURED" 
PRINT" YOU.THEY HAVE CONTACTED YOUR" 
PRINT" HEADQUARTERS & IN RETURN FOR" 
PRINT" YOUR LIFE THEY WANT THE CODE " 
PRINT"BOOK WHICH WILL ENABLE THEM" 
PRINT"TO READ THE INFORMATION YOU" 
PRINT"ARE CARRYING." 

PRINT: PRINT 

PRINT"YOU HAVE A NEW CHOICE OF 
PRINT" COMMANDS." :PRINT: PRINT 
PRINT"PRESS ANY KEY TO CONTINUE."; 


USR (64) 

CLS 

PRINT" ---COMMANDS---" 

PRINT 

PRINT"#1 COMMIT SUICIDE" 

PRINT"#2 DEFECT" 

PRINT"#3 ATTEMPT AN ESCAPE" 

PRINT"#4 HOPE FOR A RESCUE" 

PRINT"#5 WAIT FOR A.S.I.O TO AGREE " 
PRINT"ON DEMANDS" 


PRINT: PRINT 
PRINT"WHAT IS YOUR COMMAND? "; 
USR (64) 
M=PEEK (89) 
(Continued....) 


98275 
08280 
98285 
98290 
98295 
08300 
68305 
88310 
08315 
08320 
$8325 
98326 
68327 
98330 
88335 
98340 
98345 
88350 
98355 
88360 
098361 
98365 
68370 
88375 
98386 
88385 
98390 
98395 
G8400 
08495 
98419 
88415 
9842¢ 
98421 
88425 
98430 
98435 
98440 
68445 
08450 
98455 
G8460 
98465 
98470 
98471 
98472 
098473 
68475 
08480 


98485 
98490 
08495 
08500 
08565 
08516 
08515 
98520 
98525 
88530 


IF (M<49) OR (M>53) THEN 8265 
PRINT[(A1 M] 

M=M-48 

CLS 

ON M-l GOTO 83908,8326,8348,8398,8459 
PRINT" PLEASE TURN SCREEN OFF BEFORE" 
PRINT"PROCEEDING FURTHER!" 

Z=1 

RETURN 

PRINT" TRAITOR!" 

PRINT" YOU'RE NOT VERY PATRIOTIC!" 
PRINT" UNFORTUNATELY CHINESE DO NOT" 
PRINT"LIKE TRAITORS." 

Z=1 

RETURN 

J=INT (1@*RND) 

IF J>4 THEN 83790 

PRINT" CONGRATULATIONS! !" 

PRINT" YOU SUCCESSFULLY ESCAPED." 

Z=2 

I=l 

RETURN 

PRINT" YOU WERE MORTALLY WOUNDED BY A" 
PRINT"BLACK BELTED CHINESE!" 

Z=1 

RETURN 

J=INT(1@*RND) 

PRINT"A CRACK COMMANDO SQUAD HAS" 
PRINT"LANDED ON THE CHINESE BOAT." 
IF J>4 THEN 8430 

PRINT"ALTHOUGH CASUALTIES WERE HIGH," 
PRINT" YOU WERE SUCCESSFULLY RESCUED." 
Z=2 

I=9 

RETURN 

PRINT"THE OPERATION WAS A FAILURE." 
PRINT" YOU WERE KILLED BY CROSSFIRE!" 
Z=1 

RETURN 

J=INT(1@*RND) 

IF J>3 THEN 8499 

PRINT"BECAUSE OF YOUR OUTSTANDING" 
PRINT" RECORD,A.S.1I.O HAS AGREED TO" 
PRINT" THEIR DEMANDS." 

PRINT" YOU ARE FREE TO GO. LUCKILY" 
PRINT" YOU WERE ABLE TO REPOSSESS THE" 
PRINT" PLANS!" 

REM 

w=l 

RETURN 

PRINT" UNFORTUNATELY THE SECURITY OF" 
PRINT" YOUR COUNTRY IS MORE IMPORTANT" 
PRINT"A.S.1I.O HAS THEREFORE ELECTED" 
PRINT"NOT TO COMPLY TO THE DEMANDS." 
Z=1 

RETURN 

J=INT(1@8@*RND) 

IF J>4 THEN 8580 


w ERE" 
PRINT’ YOU ARE CAUGHT IN A SEVERE (Continued....) 
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88535 
098549 
08545 
88546 
88550 
88555 
08560 
98565 
58566 
93567 
98568 
08569 
88576 
98575 
08576 
98580 
88585 
98590 
08595 
986080 
88605 
68610 
98611 
@8615 
88620 
938999 
BIBBD 
89995 
0991 
09920 
09025 
999830 
99835 
1BABO 
100065 
18016 
186915 
10829 
18925 
18830 
10835 
186836 
18837 
10046 
1085¢ 
18855 
18060 
18865 
10072 
18980 
18885 
18890 
18095 
161006 
18195 
16110 


16115 
18120 
18200 
10205 


PRINT"SEA STORM ...GOOD LUCK!" 
J=INT(10*RND) 

J1=190*RND 

IF K<1@ THEN 38565 


IF J1l>4 THEN 8565 

K=K-J 

GOTO 8566 

K=K+J 

IF K=l THEN 8569 

A5S=" Kms." 

GOTO 8579 

ASS=" Km." 

PRINT" YOUR NEW POSITION IS";K;A5S 


Z=2:I=1 

PRINT 

J=INT(180*RND) 

IF J>2 THEN 8629 

I=1 

Z=3 

PRINT" YOUR RESERVE FUEL TANK HAS" 


PRINT" RUPTURED.YOU ONLY HAVE I LITRE" 


PRINT"OF FUEL LEFT." 
PRINT 

A=1:U=2 

REM 

RETURN 

REM BLEW ENGINE 


PRINT" YOU IDIOT! YOU BLEW YOUR MOTOR" 
PRINT" THE HEAT CAUSED YOUR RUBBER" 


PRINT" DINGHY TO BURST.I HOPE YOU" 
PRINT"CAN SWIM!" 

Z=1 

RETURN 

REM ENDING 


IF (U<@) OR (A<@) THEN 10010 ELSE 1006580 


CLS 
PRINT" YOUR ENGINE RAN OUT OF FUEL 


UL 
° 


PRINT" UNFORTUNATELY REFUELLING IT" 


PRINT"WILL DO NO GOOD,AS IT " 
PRINT"CANNOT BE RESTARTED." 


PRINT"WITHOUT A MEANS OF LOCOMOTION" 


PRINT" YOUR FUTURE IS NOT BRIGHT." 
PRINT 

GOTO 198209 

IF E>D THEN 19055 ELSE 18880 


PRINT"A COMMUNIST SHARK HAS JUST " 
PRINT"SPOTTED YOU. A.S.I.O AGENTS ARE" 


PRINT" ITS FAVOURITE FOOD!" 
GOTO 10200 

IF Z=l1 THEN 10208 

IF K>299 THEN 19995 


GOTO 18209 
CLS 
PRINT" CONGRATULATONS, YOU MADE IT. 


PRINT" YOUR COUNTRY THANKS YOU." 
PRINT" YOU HAVE BEEN PROMOTED TO" 


PRINT"DIRECTCR OF A.S.I.0." 

GOTO 105900 

PRINT 

PRINT" YOU DIED A LONELY DEATH AT 


ll. 


SEA" 


(Continued....) 


18210 
18215 
18220 
18225 
19226 
18230 
18235 
18240 
19245 
19258 
18255 
10589 
18505 
10510 
16515 
10520 
10525 
18530 
18535 
185986 
10595 
18600 
19665 
18616 
18615 


J=INT (3*RND+1) 

IF J>l THEN 192390 

PRINT"MAY A 1000 SEA LICE INFEST" 
PRINT" YOUR ARMPITS!" 

GOTO 18500 

IF J>2 THEN 10250 

PRINT" YOUR BODY WAS EATEN BY SHARKS" 
PRINT"AND MORAYS!" 

GOTO 10500 

PRINT"HOW COULD YOU LET YOUR COUNTRY" 
PRINT" DOWN?" 

PRINT 

PRINT "WANT A NEW GAME? "; 

USR (64) 
M=PEEK (88) 
IF (M=78) 
IF (M=89) 
GOTO 10518 
GOTO 139 
PRINT"NO" 
PRINT 
PRINT" ------------------------------ " 
PRINT" 
PRINT" ------------------------------ " 
END 


OR 
OR 


(M=110) 
(M=121) 


THEN1LOS9ID 
THEN 19535 
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4. INDEX AND CATEGORY LISTING. 


The following program was sent in by:- 


Mr J. M. Williams, Manager, 

National Can (Engineering) Pty Ltd 
P.O. Box 184, 
Clifton Hill, 


3968. VIC. 


deals with setting up categories of indices and is 


This program 
to cover many needs. 


a base program that can be expanded, 


Type in MON hit <RETURN> (ENTERS MONITOR) 
V800 (SETS PRINT SPEED) 
10 REM BOOK INDEX AND CATEGORY 
20 PRINT "INDEX AND CATEGORY LISTING" 
30 CLS 
40 PRINT [.A32 45] SOQ 
50 PRINT "ENTER 1. INDEX OR 2. CATEGORY" 
60 PRINT [A32 45] 
70 PRINT "INPUT": INPUTA 
80 CLS 
90 IF A=1 THEN PRINT"INDEX":GOTO 110 
100 IF A=2 THEN 150 
110 READ BO, CO, DOS 
120 PRINT BO, CO, DOS 
130 IF BO=50 THEN 64000 
140 GOTO 110 
150 FOR EO=1 TO 3 


PRINT "BOOK CATEGORY"; EO 


170 PRINT[A16 45 ] 

180 READ BO, CO, DOS 

190 IF CO=EO THEN PRINT CO, BO, DOS 

200 IF BO=50 THEN 220 

210 GOTO180 

220 RESTORE 

230 NEXT EO 

5000 DATA 23,2,"BOOK 1 CATEGORY 2" 

5010 DATA 24,1,"BOOK 1 CATEGORY 1" 

5020 DATA 25,3,"BOOK 1 CATEGORY 3" 

5030 DATA 26,2,"BOOK 2 CATEGORY 2" 

5040 DATA 27,1,"BOOK 2 CATEGORY 1" 

5050 DATA 28,3,"BOOK 2 CATEGORY 3" 

5060 DATA 50,0," OUT OF DATA" 

64000 PRINT “END OF DATA" 

65000 END 

This program is a useful base program that can be expanded by 
changing line 15@ E@=1 TO 3 to the number of categories you want 


to divide up. 


The 


use 


of the 


MONITOR 


W y" 


large volumes of information. 


13. 


command sets the screen speed for 


5. TELEPHONE DIRECTORY. 
The following program was sent in by:- 


Mr Neville McDonald, 
56 Bungalow Road, 
Lakemba, 2195. 


Loading the program is’ straightforward. You need to store the 
the Names and Addresses in DATA statements at tne end of the 
program. When each DATA’ statement is printed, the screen will 
only hold 32 characters per line, so bear this in mind when the 
information must be stored. 

Where the information is likely to exceed 2 lines, the last 
three (3) characters must be "XXX". This will instruct the 
program to continue the search in a secondary DATA statement. An 
example as follows: 


100 DATA "Dick Smith Electronics Pty Ltd 
P.O BOX 321 North Ryde Xxx" 
200 DATA "2113 PH 888 2002" 


When a DATA statement containing "XXX" is printed, the last 
three characters are omitted, thereby removing the X's from tne 
Einal display. In the previous example, the following would be 
displayed. 


Dick Smith Electronics Pty Ltd 
P.O BOX 321 North Ryde 
2113 PH 888 2002 


Any More. Enter 1=YES, O=NO? 


All DATA statements start from line 100 to 199 with Secondary 
DATA statements in corresponding locations from line 200 to 299. 
AS can be seen from this, the Telephone Directory can only hold 
100 lines of information. 

If any more information is required, you can do this by making a 
Simple change in line 42. The line should now read 
42 READ ((N*100)+Y)A3S 

Where N iS any integer greater than 2 it will give greater 
information space. 


Here is the program: 


4 CLS 

5 PRINT " TELEPHONE DIRECTORY" 

9 PRINT 

10 INPUT “ LOOK FOR"A2S 

11 LET Y=-1 

12 LET Y=Y+1l 

20 READ (100+Y) A1S 

30 IF AlS="NO MORE" THEN GOTO 80 
40 IF SEARCH (A1S,"XXX")=90 THEN GOTO 48 
42 READ (200+Y) A3S 
43 IF SEARCH (A1$,A2S)=0 THEN GOTO 52 
45 LET T=LEN(A1S) -3 


46 PRINT A1$(;1,T) A3S$ :GOTO 90 
(Continued 


oeee) 
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for your 
talled anda 


100 etc, 


ins 


=NO"X 


0 
terface 


by:- 
2151. 
88 into an electric typewriter 
ter in 


ENTER 1=YES 
prin 


in 


statements from line 


actual directory information 
Super 


GOTO 90 
a 


rey 


LETTER WRITER. 


NOT LISTED" 


"ANY MORE. 
95 IF X=1 THEN GOTO 9 ELSE END 


TN 
t 


IT Ris: INFU 


DATA 
‘Comet pm 


Mr D. Thursby, 
15 Bray Court, 
North Rocks, 


6. 
your 
have 
cisbers 


i] 
the 
ee head ae ae) 


you 


turns 


52 IF SEARCH (A3$,A2$)=0 THEN GOTO 12 
add 


48 IF SEARCH(A1$,A2$)=0 THEN GOTO 12 


50 PRINT AI1S 
80 PRINT 

90 INPUT 

that 


you 
program 


Then 
The following program was sent 


This 
assuming 
printer! 
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7. RUSSIAN ROULETTE. 


The following program was sent in by:- 


Russian 
take 


You 
bullet, 
again. 


Roulette 
turns 


but 


@BE85 
86387 
98018 
9Ab22 
88552 
BGE42 
88958 
GQR68 
Beary 
CHRSS 
88898 
26188 
BALL 

BBi28 
G128 | 
88148 
Ga142 
AGiS8 
agl6g 
EBi7E 


Dr Peter Thursby, 
15 Bray Court, 
North Rocks, 215l. 


takes advantage of the Super 89's Graphics. 
to try not to shoot yourself. There is only one 
if you kill yourself, you have to start all over 


REM *X Russian roulette with Sufer-S@ 9raPrhics 

REM +k Written by David Thursby 

CLS: N=6 

PRINTCAL 127; A832 2581 Lerg 

PRINTSN\" <<< RUSSIAN ROULETTE >>>" 

PRIMTN\"Do you want instructions”: 

INPUT ABE 

Ir ABS G1. 10="¥" 

CLS: H=N+{ 
INFUT"Do you want to continue"Cas 
IF C@$¢;1,109="H" TREN 162 

K=INTORNOES 041 

IF X=3 THEN GOSU8 238 

CLAS 20: PRINTER! i2@rsAl 2jAL 12733 
CURS S77: PRINT” <click>": 

THEN i98 


THEM GOSUB 438 


1 i t) 


a) ~ 
FOR L=] TU cod: pes | tens 
GaTs 72 


CLS 
PRINT NAN" 


CK EWN >>>" ; 
(Continued....) 
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WLSe 
GG138 
BaeaeB 
RGZia 


AC AK 


40248 
6) Mowe 
BCSSH 
CeerE 
Aaae3u 
BALIB 


END 
CLS 
PRINT" <<< CONG 


RAT NS >>>" 
PRINT You are sti 


ULATIOb 
Ll hive! " 


4 END 


CURS 126 PRINTEAL L27iAL 25Al Lerd 
FOR B= Ny oe 3 
CURS B: 


rior nant 
i’ 


cuRS 
MEAT 7 

FOR E=1 JW 6 
CURS ice 

READS E¥iG+349 OM 


ae32@ PRINTCAL Le7iAl MiAl Leeds 

Ca33@ FOR K=@ TO INTCRNDKS 9445: NEAT K 

C2340 NEXT E 

G@35@ DATA e 

G@360 OATA 138 

GBSTG DATA c 

BASS8B CATA 34 

AasOR DATA i393 

82408 DATA 3l 

G2#4G5 CURS L2B:PRINT" " 

AQ41@ FRINTSSS" Condolences will be sent to your relatives. 

BS42e ENG 

PB4SE CLS , 

G044@ PRIHT"This is the Game of Russian Roulette. You take turns 

B@458 PRINT"to fire at yourself!” 

ABISS PRINT"Hit “RETURN to continue or an ’N’ to stop." 

23460 IHPUT ALS 

Q2478 RETURN 

8. PI NETWORK CALCULATOR. 

(2) This program was also sent in by Dr Thursby. It allows the 
design of PI networks, knowing the required Q value. Remember an 
L 


network steps impedance up or down and as a PI network is just 
a back-to-back L network, 


equal impedances in and out. 


it can also be used as a filter with 


ABRIG, REM eee PI NETWORK PROGRAMME - MODIFIED FROM * 3° MAGAZ THE 
aG@28 REM C1977) bs FP. Thorsgés 

G@638 CLS 

e@G6E FRINT" FI Me ae DESIGN PROGRAM" 

@@G7G PRINTCAL 127iA3e @sAl le7d 


aBUSa 
99023 
Q3166 


Int" This >roaranme allows the cesiQnof PI networks. You require” 
FRIHT"ta know the @ value. Remember anl network steps imPedarnce uP" 
PRIHT'on down and as a Fl network is Just a back- to-back L "5 


pr 


@B11@ PRINT" network." | | | 

A120 PRINT"the PI can be used as a filter with equal imPeoances ah 
Q@@12i FRINT" and" | | 

Aaiee PRINTout. The Frosram calculates the minimum Q@ to do the Job." 
Q@8ie5 INFUT" CRETURM> to continue. "AGS 

C6188 P RINT* ‘. 

ABLES INF PUT"Fresuerncy CMAz?:"FO:IF FacsO THEN 166 ELSE LET FO=FO#1EE 


(Continued....) 
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Q@isSsS FRINT 

BAai7G INFUT"InPut ImPedance Cohms2:"R 
BB175 PRINT 

QG18@ IMFUT"Loead ImFedance :"Re 

CaiSa Yi=8:if R2ORL THEN 195 ELSE 20a 
GB1iSS RG=Re: R4=R1Li: R2=R4:RLIERS:Y1=1 


GO2E8 QZ=SORCRI“RE-1 > A 
B4S2@ PRINTS” Q@ Value (min @ is"CF7.2 QG3i"9' "5; INFUT Q1 
QB225 P1=s.i415926 


WB23a IF Gi<@ THEN ee 

QB6268 IF Gi>@ TREN 256 ELSE 245 

@@265 GOTO 238 

MASSA IF Qi<Q@ THEN LET 21=06:GOTO 646 
@6270 REM-CALCULAT IONS 

@@SS@ IF Gi=G@ THEN LET xX1=L1E33:GOTC 642 
GGlSs KL=HRI“Qi 

BASRA NS=RiFA1+1-RI“RS 

29S1@ IF ae<=8 Trek PRINTN' TA at’s an unreasonable Problem. ":GUTO 17% 
HeS2G KE=HSORCRIFRS/ KE 

E433 SCQLARLH RLSRE/NED 


GASSh NO=KSOCCRLFO1L +1) 


Band 1s tyaeP L/XL FO 

S2268 Ce=1/2e/Pi1/xe/ Fe 

B2S7E LB=KS72/P1/Fe 

aan Remo Cre ‘ATIC 

SQ CLO:PRINT 

C2493 PRINT’ os EAS 9ST; "ULUUU"ICRS 8525 "0" 

A PRINTT of 0 GLY 

Ba42G PRINT" | : 

BG438 PRINT” "GEAL G2viAS S/R Seif Gil leg 
BSS PRINT"  ";£ER9 950s" CCL)"LAS 32:83 959i" Co]? 
BGSoe PRINT" i" 
B2S68 PRINT" - | 

@@47G PRINT’ o"sCAL 127/811 GsAl 127ICAL 1275A6 @iAL 127]i"0 
Baeoe Ir Yi-G THEN PRINT TREC S0R2) TABC EB ORL: GOTO Soe 


2493 PRINT TABCEIRLE TAS 28 282 
@8495 PRINT 

e@S¢ IF LODSiE-G THEN PRINT” Ls"INTCLOXLE9/1E3)" microHs":GOTO 522 
C8519 PRINT’ Le"INTCLOMIES)" nano-Hs" 


SHUS28 FRIiftt” Cis"INTSCLFLEL2 2" PF 

G@SSG PRINT" C2="INTCCEFLELS 2" pF" 

8ESo0 IMFUT " . Fnother Q@ value?" AGS 
Seooe IF ABS Ls i.i9="¥" THEN 196 

WAYS INPUT” ImPedance changse?7"Res 

OO@SS8 IF ReElG1,10="9" THEN i738 

B@596 JHFUT"Anather Fresuency?"ASS 

G26OG iF ASEC FL, L0="VY"TREN 6@2 ELSE 618 
C@60e INFUT’New Fresuencs :"FO:IF F@<=6 THEN 686 
OG66S FE=FOXLES: COTO 262 

@CQ61@ IKPLUT"Mare information? AS £:1F R&eSC51,)0="""THEN 169 
Gasce8 chd 

cB SG REM-MitH @ TYIELOS AN L NETWORK 

Ra64@ IF i= THEN PRINTS "Use a Girect connection: a wire!" 
Be54s iF Qi=a THEN 29 

eGeakh * rie S=QBRC 

BQS60 Ki=Ri“Q1:Cl=3: C2=8: Xc=% 1 

48676 iF Yil=1 THEN 368 

89688 Cl=1/2-Pi/Fa-xi 

Q@698 GOTO 3rd 

R272 END 


18. 


(3) In 
moving 


this 


9. 


TANT 


ee ee ee 


game, 


also 


ERIAN TAKE-AWAY. 
sent in by Dr 
1 to 10 jewels from the blue box 


Thursby, you take turns 
to the red box. The one 


who moves the 100th jewel stayes alive and gets the treasure. 


RBBO39E 
88180 
B8i6S 
88128 
BH14E 
GBi7a 
GA2OE 
BB21E 
82228 
GB230 
AG24h 
QS25e 
A8zZ68 
BB278 
Bbz3e 
BEZ96 
AB328 
AB3168 
BU328 
QO348 
BESS 
83359 
BO37E 
E6358 
BES 
6B4ar 
AS4i2 
Baden 
BO434 
98444 
BA459 
88466 
Be4e4 
Bu4r 
tS bell ar 
88518 
RESCH 
BOSSE 
BESS 
GB55e 
CESS 


ge59¢ 
eGene 


BH618 
Beech 


oe ond 


- t (= 


as? bane ‘aoe! 


PRINT" 
PRINTCAL 1275A392 83A1 127g 
CURS 184:PRINT"Human RaPscallion! !" 

PRIHT" I’ve caught you stealing the 180 Jewels of Planet Tanter." 


PRINT"Ordinarily the Penalty is severe and terminal wseec- 
Samesman,. " 


TANTERIAN TAKE-AWAY” 


PRIHT"But Icm 2 


PRINT "For you 


PRIHT" me," 
PRINT"st Tanterian takeaway," 


FRINT 


oe 


ife and the Jewels, 


you must match wits with"; 


INFUT"Hit <return> far the rules. "ALS 


CLS 


PRINT "We take turns mavina Lf to 1G 


PrRilt" fo the” 


mo 1 es ot | 
PRIMI 


1mm 


o! la mee 
mei CON, 


The one who moves the 


Jewels from the Blue box"; 


186th Jewel iss the wiriner"; 


PRINT" of": FRINT" life and treasure." 
Hit <return> to continue, "Res 


Lieut 
CLS 


PRINT"I 90 first, 
FOR H=1 TO 1@@ STEP ii 
How many are you movine?"x 


INPUT" 


CLS 


iF x<1 THEN 422 


IF ®“=1!1 THEN 444 
PRINT" The Runman cheats! 
GOTO 36@ 

FRINT"Ysu must move at least one!" 
GOTQ Sé&¥ 


PRIM? Tne total 


ma rTrhiw) 
mhiti 


PRINT 


—- 
aw 


fa NYDN AD DH VAT +e 
Pm) AO AD AD OT) 


JO 0 et ee bt ee he A DO 


1? 
4 


FOR 2=1 


PRINT "HS 


NEXT 2 


GOISUe eee 


K=e 


2 CL3 
PRINT" 


4 


mo Thiet 
mo TMU 


m 2 vy e 


Wins 


B THeh MEXTAN 


Mh pte 


"Li-FLTGHO" for a 


my doomed 


i for a total of 1." 


Take 16 or 


—4 


19. 


cM 


Ute 


alwayz 


J 
nu ho never 


Hy 


fever." 


in3 "is" Jewels, 


al of "Neil 


210. ee 


win." 
trust 2a Tanterlattese..' 


H EMD 


This 


American 


LO. WARFISH. 


by Dr Thursby. You command an 
been sent to attack the Japanese 


sent in 
which has 


was also 
submarine 


game 


Ships at sea, during World War II. 


O0001 
O000= 
QU005 
BO01a 
20030 
00040 
BOQ50 
B0060 
00072 
00080 
B0090 
BQO95 
00100 
00120 
20132 
20140 
00150 
Q@0155 
001602 
00170 
20180 
00190 
00:05 
0010 
OO220 
00230 
00240 
0245 
BO250 
20260 
00270 
80280 
BO290 
00300 
00310 
40320 
00330 
OO332 
00342 
BO358 
00350 
00370 
BO380 
QQ39Q 
09400 
00412 
Q0412 
00420 
00438 
20440 
20452 
00472 
00480 


REM * FROM ’MORE PASIC COMPUTER GAMES’ BY AHL (MODS FOR SUPER-&O) 
CLS 

PRINT CAL 1275A3B2 45Al1 127] 

PRINTN\\\" << WARFISH =>" 

PRINT\\S INPUT " Do you need instructions?" 14 

GQO=RNID 

REM 

IF I0$(51,1)="N" THEN CLS:GOTO 190 

CLS: PRINT" 7WARF ISH’ " 


PRINT\"You command an American sub- marine that has been sent" 


PRINT"to attack Japanese ships at sea" 
PRINT"during World War Two." 


PRINT" The orders that can be given are the following: 
PRINT" #PERISCOPE - To search for the enemy. " 
PRINT" #TORPEDO - To launch at enemy chips." 
PRINT” #DIVE -—- To escape attacking ships." 

FOR F5=1 TO 15@@:NEXT FS:ClLs 

PRINT"These are some historic U.S. Navy submarines: " 
PRINT\" TAUTOG, SILVERSIDES, CAVALLA, " 

PRINT" PLUEFISH, THRESHER, TROUT, ARCHER. " 


PRINT"Select one of the above or choose your own." 
PRINT"Print the name of your submarine" :INPUT AQ 

PRINT 

T=25 

D=INTCRND#1@) 

IF D<& THEN 380 

IF De>6& THEN 245 ELSE 
IF De>7 THEN 270 

RO@$=" Destroyer" 

W=7 100 

IF D<:8 THEN 30a 
RO#="Destroyer Escort" 
W=1350 

IF D<>9 THEN 330 
ROG="Torpedo Poat" 
W=70 

IF D=6& THEN 360 
IF D=/7 THEN 360 
Q=1 

GOTO 370 

Q=2 

PRINT"A Japanese 
IF Ds=6 THEN 409 
A=INTCRND#1Q0) 
REM 
PRINT\". 
PRINT 
INPUT COS 

CLS?IF CO$(31,1)="P" THEN 480 
IF C@$(51,1)="T" THEN 1100 

IF C@$(31,1)="D" THEN 1370 
GOTO 410 

IF @>@ THEN 1080 


200 


"SR@#5" 1s attacking.' 


ee e.Qrders, Commander...."§ 


(Continued....) 


20. 


@0485 IF D:5 THEN 1080 
QQ490IF A:=4 THEN 570 
ROG="Freighter" :W=4500 


20500 
20512 
Q@515 
00520 
G05 30 
00540 
QGQ550 
BO560 
00570 
QQ575 


8058. 


Q0590 
GUS500 
00610 
OO520 
80530 
Q0635 
30640 
00650 
204550 
00570 
OH0580 
B0698 
02700 
00719 


IF AzzQ 
IF Atel 
W=6506 
IF Acre 
W=7500 
IF Atos 
W=8108 
IF Ass7 
IF Axir8 


ROF="Tan 


IF Aze8 
W=1 2000 
GOTO 625 
W=95 00 


THEN 
THEN 


THEN 
THEN 
THEN 
THEN 


fer." 
THEN 


338 
330 


350 


37@ 


GOTO 630 ELSE GOTO 580 


630 


620 


IF Axzui*s4 THEN 635 ELSE 640 
IF Ac:5 THEN 5906 
R@G="Transport" 


IF Agz5 
W=11509 
GOTO 690 
W=8800 


THEN 


680 


IF Azs& THEN 720 


ROS="Ammunition ship" 


W=95650 


BQ72Q0IF Az=9 THEN 748 
IF A=6 THEN 740 


Q0725 
08730 
20742 
Q0750 
227450 
@2770 
Q0780 
20790 
ga8sag 
gasia 
20820 
Q2Q830 
00840 
ga8s5sea 
Q0860 
aes7a 
gassa 
g289a 
aa700 
ga9e5 
Q@0910 
QO922 
Q@a925 
20930 
20940 
22950 
@a955 
2296 
22970 
2098@ 
22990 
Q@0995 
21000 
21@1@ 
@1020 
21025 


(= 1 


IF Atzz6& THEN 740 


Q=1 


IF Az? THEN 1080 


=] 


IF Ex>@ THEN 810 
RQS="Battleship" 


W=31500 


IF Ex:i THEN 840 
ROG="Aircraft Carrier" 


W=25 700 
IF Eee? 
ROS="Hea 
W=9900 


THEN 87@ 


vy Cruiser" 


IF Ex23 THEN 9280 


R@$="Light Cruiser" 


W=76500 


IF Ext24 THEN 905 ELSE 91@ 
IF E«<*5 THEN 9230 
ROG="Destroyer” 


W=27100 


IF Ex>7 THEN 930 ELSE 940 
IF E<:6& THEN 955 
ROS="Submarine" 


W=1500 

IF E39 
IF E<?8 
W=1350 

IF E<=5 
Q=1 

IF E<o4 
IF E<35 
IF E<>2 
IF E<>3 


THEN 
THEN 


THEN 


THEN 
THEN 


THEN 
THEN 


960 ELSE 970 


980 


995 


10@@@ ELSE 1010 


1020 


1025 
104@ 


21. 


(Continued....) 


Q=2 
IF E<>1 THEN 1050 
W=4 
IF E<>@ THEN 1080 
Q=7 


PRINT\"...22e2e-JVapanese "sROG 5"... 2 een wea sw3" Tons.' 


GOTO 48@ 
IF @>=1 THEN 1132 


PRINT"No Japanese ships in sight------- Just ocean." 


IF @<1 THEN GOTO 410 
PRINT\T"...-lorpedoes left...." 
PRINT"....Number of fish to fire.... 
INPUT R 

IF R<@ THEN GOTO 1140 

IF T-R<@ THEN GOTO 1140 


. T=T-R 


S=INT(CRND*¥10) 

IF S?R THEN GOTO 1198 
W=V—-S 

IF @<=@ THEN 1240 
QOS=" damaged" 

IF Q>=1 THEN 1280 
QOS="sunk" 
QOBO=QOO+FELT (CW) 

L=L+1 

PRINTN R" torpedoes fired...."53553" hits." 
IF S<:@ THEN1310 


PRINT 
IF S<@ THEN 1330 
PRINT ".... "SROSS" "SQOH5"." 


IF D?5 THEN 1335 ELSE 1340 

IF @:@ THEN 15640 

IF Tel THEN 1588 

IF @21 THEN GOTO 220 

GOTO 408 

IF Dz=6 THEN 1390 

PRINT" The USS "sSA@S$s3" is not under" 
PRINT" attack. " 

IF Dz6& THEN GOTO 4160 
U=INTCRND#1@0) #250 

PRINT"#DISTANCE OF "TABR(C2@)"#DEPTH OF USS" 


PRINT ROS TARCZO) AGS 

FOR X7=@ TO SLEPRINT "=" °2NEXT X7 
PRINT Us" yards",TAR(14) Z5" feet" 
Q=U-250 

Z2=Z4+25 

FOR P=1 TO 9@@:NEXT P 


IF U?-25@ THEN GOTO 14390 

IF R@¢$="Torpedo Poat" THEN 1510 
N=INTCRND#1@)*¥275+59@ 

IF N+26>Z THEN 1495 ELSE 150@ 

IF N-26<Z THEN 1548 

U=0:7=@ 

FOR Y=1 TO 8S@Q@:NEXT Y 

PRINT"The USS "SAQ@#s" is unhurt." 
GH=B 

GOTO 220 , 

CLS!:PRINT\\"The USS "sA@$s" has been " 
PRINT"sunk with depth charges." 
GOTO 1510 

FOR I=1 TO 150@:NEYT I 


(Continued 


22. 


cee) 


CLSIPRINT\\ "The USS "j3A@$5" has been" 
PRINT"sunk by gunfire." 

GOTO 1610 
FOR T=1 To 


CLS!PRINT\\"The USS 


@1i555 
21565 
01570 
01580 
@1585 


12@@:NEXT I 


"2A0¢s" has expended all its torpedoes." 


G15°O 
21600 
01518 
G1520 
01621 
01630 
B1631 
41640 
016460 


In 
are 


skill. 


this 


IF O@<=@ THEN 1610 ; 
PRINT\\"Congratulations on a successful deployment. 


PRINT 


PRINT"The submarine USS "5A 
PRINT"has sunk a total of "sL35" 
PRINT"Total enemy tonnage sunk 
PRINT" "3003" tons. " 
PRINTZINPUT"Do you want to try again?"S1$35 
IF Si#(3i,1)="Y" THEN GOTO 5@ ELSE END 


ships.” 


ll. BOWLING. 
game, also sent in by Dr Thursby, you and your friends 
a bowling alley. You need to use all of your bowling 
The computer keeps score for you and you can play against 


at 


up to four players. 


BOG@Q1 
QHAB= 
BVG10 
OO7 
20250 
00450 
00720 
00818 
BATHE 
20940 
Q2a9l7O 
01082 
01100 
01170 
01-60 
01350 
091530 
Bié20 
01800 
01890 
2197930 
02078 
O71460 
O2250 
O2440 
B24 30 
92520 
O2512 
0-700 
B2710 
Q@2715 
2720 
B27 30 
O2742 
O2750 
022790 
0-880 
GB2972 
03050 
@315@ 
03240 


CLS 

PRINTCAL 1275;A32 11;5;AL 127] 

PRINT TAB(78) "BOWL." 

DIfi €(15),A¢(10@, 6) 

PRINT\\N" Welcome to the alley." 

PRINT\"Bring your friends and let’s gettogether. " 

PRINT"Want the instructians (Y/N) "5 

INPUT Z1i¢% 

CLSSIF Z1#="Y" THEN 999 

IF Z1¢="N" THEN 1530 

PRINT"The game of bowling takes skill.During the game the com"; 
PRINT"puter " 

PRINT"Will keep score. You may competewith up to four players." 
PRINT"You will play ten frames. 70”? means the pin 1s down"; 
PRINT".."CA1 1275A1 115A1 1271" means the pin is standing." 


PRINT"After the game you will be givenyour scores." 
PRINT" First of all...How many are Playing" 5 
INPUT R 

PRINT\"....Very good...." 

FOR T=1 TO 1@@0:FOR J=1 To StACI,J)=Q:NEXT JINexT I 
F=1 

FOR P=1 TO R 

M=@ 

PR=1 

M=0:9=Q 

FOR T=1 TO 15:C¢CI)=@0:NEXT I 

REM 

PRINT\"Hit -RETURN- to get the game gaqing...."3 


INPUT NQ@¢ 

PRINT\"....2PoOwl rolling...." 

CLS:PRINT\\TAR(9) § 

PRINTCAL 1275A1 L1sAl SSsAil L1LsAil SSsA1l L1LsALl S25Al 115A1 1277 
PRINTTABCI@)CAL 1275Al LisAl SEsAl L1ISAL SesAl 1135A1 127) 
PRINTTAPRCILICAL 1L275A1 LisAl BesaAl 115A1 1277 
PRINTTABCIS)£C AL 1275A1 113sA1 127) 

K=0: D=0 


FOR I=i TO 20 
X=INT(RND*10Q) 
FOR J=1 To 10 
IF X¢J#15 THEN NEXT#J 33230 


NEXT J (Continued....) 


23. 


03330 
O34270 
03520 
03500 
O369O0 
037780 
03870 
O3760 
84050 
041402 
04230 
04322 
04410 
84508 
04590 
04770 
04860 
04950 
Q5040 
05132 
Q5 220 
Q5221 
05310 
05400 
Q549O 
Q@5491 
Q5580 
054670 
05760 
Q@5751 
Q5858 
O059°40 
06030 
B6031 
06120 
05210 
B5590 
06490 
06570 
B666O 
06750 
065840 
M6930 
Q7020 
07110 

7288 
7290 

0295 
07380 
07472 
07540 
07558 
07740 
073830 
07920 
28010 
08100 
Q@8105 
28199 
08280 
08370 
08440 
Q855a 
28540 
08730 


C(J#15—-X)=1 


NEXT I 

PRINT? CLS 

PRINT" PLAYER: "P35" 
FOR [=0 TO 3 

PRINT 

FOR J=1 TO 4-1 
K=K+] 

IF C(K)=1 THEN 4320 


FRAME! "F 3" 


PRINT TARCI+8) 50CA1 12735A1 


GOTO 441@ 

PRINT TABCI+8)5"O "§ 
NEXT J 
NEXT I 
PRINT"" 
FOR I=1 TO 
D=D+C(1) 
NEXT I 

IF D-M#>@ THEN 5220 


1@ 


PRINT\"....Gutter.... 


IF Be>1 THEN 5490 
IF Dz>1@ THEN 5490 


PRINT\"....S7TRIKE! !¢. 
Q=3 
IFBR«aee THEN 3760 


IF De<:10 THEN 5750 
PRINT\" Spare!" 

i= 

IF Bere THEN 6030 
IF Dz=10 THEN 45030 
PRINT\"...22Error..ae-s 
= 1. 

IF Bet1 THEN 6210 
IF D>=10 THEN 62710 
PRINT\" 
REM 
ACF#P,P)=D 

IF B=2 THEN 7020 
R=2 

M=D 

IF @=3 THEN 462710 
ACFP,B)=D-—-M 

IF @=@ THEN 2520 
ACFHP, 3) = 

NEXT P 

F=F+1 

IF Feil THEN 2076 
PRINT" FRAMES: " 
FOR T=1 TO 10 
PRINT I5 

NEXT I 

PRINT 

FOR P=1 TO R 

FOR I=1 TQ0.3 

FOR J=1 To 1@ 
PRINT AC J#¥P,1)5 
NEXS J 

PRINT 

NEXT I 

PRINT 

NEXT P 


PRINT"Do you want another game"; 


INPUT A1% 
IF A1$(C31,1)="Y" 
END 


THEN 


24. 


Roll your second ball." 


2610 


12. SOLITAIRE. 


The following program was sent in by:- 


Tt 


is based on the traditional game of checkers, but you have to 


Mr Brian Walton, 
Townhouse 4, 
Menai Road, 
Menai, 2234. 


beat the computer. 


4 DIM 2(64) 
6 PRINT TAB (7)"***SOLITAIRE ***"\N 


8 P 


RINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 


PRINT: 
FOR J= 


"48 CHECKERS ARE PLACED ON THE " 


"TWO OUTSIDESPACES OF A STANDARD"; 

"64 SQUARE CHECKERBOARD." 

"THE OBJECT IS TO REMOVE AS MANY"; 
"CHECKERS AS POSSIBLE BY DIAGONAL"; 
"JUMPS ONLY" 

710 

"USE THE NUMBER PAD TO SHOW THE SQUARE" 
"YOU WISH TO JUMP FROM AND TO." 

"ON THE BOARD ;PRINTED W@ ON EACH"; 
"TURN 1 INDICATES A CHECKER AND 0") 
"INDICATES A SPACE. WHEN YOU HAVE" 

"NO POSSIBLE JUMPS REMAINING TYPE"; 

"A 'Q' IN RESPONSE TO QUESTION 'JUMP FROM'" 
710 

PRINT “HERE IS THE NUMERICAL PAD:" 

1 TO 57 STEP 8 


PRINT J;TAB(4) ;J+1;TAB(8) ;J+2;TAB(12) ;J+3;TAB(16) ; 
PRINT J+4;TAB(20) ;J+5;TAB(24) 3.J+6; TAB(28) ;J+7 
NEXT J 
GOSUB 710 
PRINT "AND HERE IS THE OPENING POSITION"; 
PRINT "OF THE CHECKERS" 
FOR J=1 TO 64 
Z(J)=1 
NEXT J 
FOR J=19 TO 43 STEP 8 
FOR I=J TO J+3 
NEXT I 
NEXT J 
M=0 
GOTO 340 
INPUT “JUMP FROM"A; 
IF A=0 THEN 500 
INPUT "TO"B; 
PRINT 
C= (A-1) /8 
D=A-8*C 
E=(B-1)/8 
F=B-8*E£ 
IF C>7 THEN 230 
IF E>7 THEN 230 
IF D>8 THEN 230 
IF F>8 THEN 230 
K1=FLT(C-E) 
IF ABS(K1)<>2 THEN 230 


25. 


205 L1I=FLT(D-F) 

210 IF ABS(L1)<>2 THEN 230 

212 IF Z((Bt+A)/2)=0 THEN 230 

215 IF Z(A)=0 THEN 230 

220 IF Z(B)=l1 THEN 230 

225 GOTO 250 

230 PRINT “ILLEGAL MOVE. TRY AGAIN..." 
240 GOTO 100 

245 REM ***UPDATE BOARD 

250 Z(B)=l 

260 A(A)=0 

270 Z((BtA) /2)=0 

290 M=M+]1 

310 REM *** PRINT BOARD 

340 FOR J=1 TO 57 STEP 8 

350 FOR I=J TO J+7 

360 PRINT Z(I); 

370 NEXT I 

380 PRINT 

390 NEXT J 

400 PRINT 

410 GOTO 100 

490 REM ***END OF GAME SUMMARY. 
500 S=Q 

510 FOR I=1 TO 64 

520 S=S+Z(T) 

530 NEXT I, 

540 PRINT "YOU MADE":M:;"JUMPS AND HAD";S;"PIECES"; 
550 PRINT "REMAINING ON PAD" 

560 PRINT 

562 INPUT “TRY AGAIN"A1S; 

570 IF AlS=YES THEN 54 

575 IF A1S=NO THEN 600 

580 PRINT "PLEASE ANSWER YES OR NO" 
590 GOTO 562 

600 PRINT 

610 PRINT "O.K HOPE YOU HAD FUN!!" 
645 END 

700 REM*** PAUSE ROUTINE. 

710 PRINT:PRINT "(PRESS RETURN TO CONTINUE)" 
720 INPUT G1$ 

730 RETURN 


20. 


13. MOON LANDING SIMULATOR. 
The following program was sent in by:- 


Mr Neville McDonald, 
56 Bungalow Road, 
Lakemba, N.S.W. 2195. 


It explains itself; 


1 CLS 
1¢ PRINT " MOON LANDING SIMULATOR."\"DISCRIPTION FOLLOWS:- " 

20 PRINT \"YOUR IN YOUR SPACE CRAFT 500 FT."; 

25 PRINT "FROM THE SURFACE OF THE MOON." 

38 PRINT "YOU HAVE 120 UNITS OF FUEL."\"YOU ARE FALLING AT 5@ 
FTX SEC." 

49 PRINT "THE MOONS GRAVITY WILL SPEED YOU UP AT 5 FT PER 
SECOND." 

5@ PRINT \"CAN YOU LAND YOUR CPACE CRAFT (*)WITHOUT CRASHING?" 

6@ INPUT"WHEN READY, PRESS THE <RETURN> KEY"A1S 

61 CLS:PRINT "NOTE :-"\"1) 5 UNITS OF FUEL CANCELS THE AFFECT"; 
62 PRINT "OF GRAVITY. YOU WILL STAY AT THE SAME SPEED."\ 

63 PRINT "2) BY USING YOU'RE FUEL CAREFULLY IT IS POSSIBLE TO"; 
64 PRINT "LAND WITHOUT CRASHING."\ 

70 PRINT "FOR YOUR EPITAPH CAN WE PLEASE HAVE YOUR NAME?" 

71 PRINT "THEN PRESS <RETURN>" 

72 INPUT A2$ 

73 LET T=SEARCH(A2S," "):IF T=@ THEN GOTO 78 

74 LET A3S=A2$(;1,T):GOTO 88 

78 LET A3S=A25 — 

88 CLS:PRINTXX"THANK YOU, I WILL NEED THAT LATER"A3S\\ 

98 INPUT" READY TO CONTINUE? PRESS THE <RETURN> KEY PLEASE"A1$ 
180 LET FQ=1290 

181 LET vVO=5¢6 

195 LET D@=5080:CLS:GOTO 19190 

115 IF X@}F@ THEN GOTO 2490 

120 FO=FO-XO 

125 IF (F@=08) OR (FO<@) THEN GOTO 249 

138 YO=xX@-5 

148 TO=YOX2 

158 DO=DB-VO+TA 

168 VG=VO-YO 

165 IF D@<@ THEN GOTO 249 

178 IF (D®@=8) AND (VG=0) THEN GOTO 2190 

175 IF (D@<5) AND (V8<18) THEN GOTO 180 

176 CLS:GOTO 1981¢ 

188 CLS:PRINT" A REASONABLY SOFT LANDING, BUT NOT PERFECT!":GOTO 


218 CLS 

228 PRINT \\" I SAY, YOU HAVE DONE IT."\"CONGRATULATIONS"A3S"1!" 
225 PRINT “WOULD YOU LIKE ANOTHER GO AT IT,"A3$"?2" 

226 INPUT "ENTER 1=¥ES, @=N@. THEN PRESS<RETURN>"PQ@ 

230 IF P@=8 THEN END 

235 CLS:CURS 408:PRINT"NEW GAME STARTS NOW": GOTO 1002 

248 VO@=SOR(VO*VGO+ABS (1B*DO) ) 

245 CLS 

250 PRINT " CRASH.... BOOM... BANG... AT " INT(VO); 
251 PRINT "FT PER SECOND." 

268 PRINT "ON THIS DAY, THE BRAVE ASTRONAUT"A2 


(Continued....) 


27. 


270 PRINT "CRASHED HIS SPACE CRAFT ON THE SURFACE OF THE MOON" 
280 PRINT\"WELL... AT LEAST HE WONN'T DO IT AGAIN....!" 

298 print " OR WILL HE???" 

295 GOTO 225 

1900 LET D@=500:LET V@=50:LET FO=120 

1010 CURS@:PRINT “500 FT":CURS 64:PRINT "400 FT"CURS128:PRINT 
"300 FT" | 

1928 CURS192:PRINT"200 FT": CURS256:PRINT"1090 FT" 

1025 CURS 320:PRINT" SURFACE" :CURS352 

1030 FOR N=8 TO 20:CURS 320+N:PRINT "#":sNEXT N 

1035 LET Z=INT(10* (1-D0X50Q@) ) 

1036 IF (Z>@) OR (Z=@) THEN GOTO 1942 

1037 CURS 8:PRINT "SPACE CRAFT OFF SCREEN": CURS4@:PRINT "DIST 


1938 PRINT DO"FT":CURS 352: GOTO 19598 

1948 CURS 32*2+13: PRINT "[*J":CURS 177:PRINT "DIST 
"DO" FT" :CURS352 

1950 PRINT "FUEL ="FQ" SPEED ="V@"FTXSEC" 

1968 INPUT "FUEL FOR THIS BURNT THEN PRESS <RETURN>"X@:GOTO 115 


14. CAMEL. 


This program was sent in by:- 
Peter Whalan, 
1@ Alameda Way, 


Warriewood, 2102. 


You are traveling on a camel of reasonable breeding. During your 
adventure you have to travel across the great Gobi desert, but 
beware! There are a tribe of knock—kneed pigmies that will be 
chasing you. Camel and people soup are their favourite dish. You 
will be asked for commands every so often. Don't push your came 

too hard....or else.....Hello breakfast!!... 


88280 PRINT "YOU HAVE ONE LITRE OF WATER 


80085 CLS 00281 PRINT "WHICH WILL LAST YOU SIX DRINKS." 

00010 PRINT TAB(12);"CAMEL" 88282 PRINT" YOU MUST DRINK AFTER EVERY FOUR" 

68035 PRINT @6283 PRINT "COMMANDS. I WILL WARN YOU WHEN" 

00110 PRINT “WOULD YOU LIKE INSTRUCTIONS "; 98284 PRINT "YOU NEED A DRINK." 

88120 INPUT DOS @6296 PRINT "YOU MAY RENEW YOUR WATER SUPPLY COMPLETELY AT AN OASIS." 
00138 IF D@S="N" THEN 328 98306 PRINT "YOU GET 1/2 LITRE IF FOUND BY HELP." 

88135 CLS 08310 PRINT "IF HELP DOES NOT FIND YOU AFTER COMMAND SIX, YOU LOSE." 
68146 PRINT" WELCOME TO CAMEL." 88311 POKE 48635,258 

08141 PRINT 98312 PRINT[A1O 32] 

90145 PRINT "THE OBJECT IS TO TRAVEL 208 " 08313 POKE 48635,8 

98158 PRINT "MILES ACROSS THE GREAT GOBI DESERT." 06314 CLS 

00166 PRINT “A TRIBE OF KNOCKED KNEED PIGMIESWILL BE CHASING YOU." 08315 PRINT "HELP DOES NOT LIKE TO BE CALLED IF HE ISN'T NEEDED" 
86170 PRINT "YOU WILL BE ASKED FOR COMMANDS EVERY SO OFTEN." 88320 PRINT "GOOD LUCK AND GOOD CAMELING !!" 

60175 PRINT"YOU ARE MOUNTED ON A CAMEL OF" 80325 PRINT:PRINT 

08176 PRINT"REASONABLE BREEDING." 03308 PRINT "YOU ARE IN THE MIDDLE OF THE DESERT AT AN OASIS." 
98177 PRINT" THESE CAMELS CAN USUALLY TRAVEL" 88335 GOSUB 2000 

0609178 PRINT"FOR ABOUT 7 DAYS WITHOUT REST," 088348 IF C>199 THEN 1218 

00179 PRINT "BUT THEY SHOULD NOT BE PUSHED TOO HARD" 08358 zZ=Z-1 

88180 POKE 48635,258 98355 IF Z=1 THEN PRINT "----- WARNING---~- SET A DRINK" 

08181 PRINT [A160 32] Q98360 IF Z<@ THEN 1630 

88182 POKE 48635,8 88370 P=P+1 

80183 CLS 88380 V=INT((18*RND) +1)+2 

00185 PRINT:PRINT 886396 IF Q>0 THEN 949 

88275 PRINT 86400 IF P<4 THEN 4790 


(Continued....) 
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@8418 G=G+V 
00420 IF G<C 
00430 PRINT 
00440 PRINT 
00458 GOTO 1 
80460 PRINT 
00470 PRINT 
00488 PRINT 
00481 PRINT: 
06498 INPUT 


68491 CLS 


THEN 466 

"THE PIGMIES HAVE CAPTURED YOU.” 
"CAMEL AND PEOPLE SOUP IS THEIR FAVOURITE DISH!!!!}" 
560 

"THE PIGMIES ARE "C-G;" MILES BEHIND YOU." 

"YOU HAVE TRAVELLED ";C;" MILES ALTOGETHER." 
"WHAT IS YOUR COMMAND" 

PRINT " (@ TO CHECK COMMANDS) " 


"COMMAND = #"Y 


66495 ON Y GOTO 2285,830,610,680,760,799 


88510 IF S>O 
00515 IF S>0 
60526 IF S>0 
00530 IF S>g 
08558 T=INT( 
00560 IF T<4 
08578 PRINT 
00580 S=3 
00590 z=4 
90668 GOTO 3 
00610 F=F+1 
90620 IF F=8 
00638 GOSUB 
00640 W=INT( 
00658 C=C+W 
00666 PRINT 


68665 PRINT 


THEN PRINT "YOU STILL HAVE ";S;" DRINKS IN" 
THEN PRINT "YOUR CANTEEN" 

THEN PRINT "NO HELP FOR YOU !!" 

THEN GOTO 1209 

10*RND) +1 

THEN 1208 


“HELP HAS FOUND YOU IN A STATE OF UNCONSCIOUSNESS," 


40 


THEN 1198 


880 


15*RND) +1 


"YOUR CAMEL LIKES THIS PACE." 


090678 GOTO 3490 


80680 F=F+2 


00698 IF F>7 THEN 1198 


607060 GOSUB 
88710 W=INT( 
88720 C=C+W 
06730 PRINT 


00748 PRINT 


888 


(18*RND) +1) *2 


"YOUR CAMEL IS BURNING ACROSS THE DESERT SANDS." 


9875@ GOTO 348 


88760 PRINT 
86765 PRINT 


00776 F=68 


"YOUR CAMEL THANKS YOU!" 


86788 GOTO 358 


00796 PRINT 
00806 PRINT 


0081@ PRINT 


"YOUR CAMEL HAS “;INT(7)-F;" GOOD DAYS LEFT." 
"YOU HAVE ";S;" DRINKS LEFT IN YOUR CANTEEN." 


"YOU CAN GO ";Z;" COMMANDS WITHOUT DRINKING." 


00826 GOTO486 


89838 S=S-1 


090840 IF S<®@ THEN 1200 


00850 PRINT 


00868 Z=4 


"BETTER WATCH FOR AN OASES !" 


80878 GOTO 489 


60888 A=INT(106*RND) +1 


00890 IF A>S THEN 1120 


88968 PRINT 
60910 PRINT 
08920 PRINT 
08925 PRINT 
@0927 PRINT 
80938 PRINT 
80935 PRINT 
08940 PRINT 
869508 PRINT 


880955 PRINT 


“WILD BERBERS HIDDEN IN THE SAND HAVE CAPTURED YOU." 
"LUCKILY THE LOCAL SHIEK HAS" 

“AGREED TO THEIR RANSOM DEMANDS." 

"...BUT.... WATCH FOR PIGMIES!!" 

SUB-COMMANDS:" 


“YOU HAVE A NEW CHOICE OF 


"¢7 ATTEMPT AN ESCAPE" 


"#8 WAIT FOR PAYMENT" 


29. 


86960 PRINT “YOUR SUB-COMMAND "; 

00970 INPUT X 

06980 IF X=8 THEN 16606 

060990 W=INT(10*RND) +1 

@1000 IF W<S THEN 1048 

91018 PRINT "CONGRATULATIONS YOU SUCCESSFULLY ESCAPED !!!!" 
81820 O=0 

810308 GOTO 348 

81040 PRINT "YOU WERE MORTALLY WOUNDED BY A" 
61845 PRINT " PIG STABBER WHILE ESCAPING" 
@1959 GOTO 14106 

81060 W=INT(100*RND) +1 

01080 IF W>24 THEN 1100 

81096 PRINT “YOUR RANSOM HAS BEEN PAID AND YOU ARE FREE TO GO." 
81895 Q=9 

81896 GOTO 349 

@116@ PRINT "THE LOCAL SULTAN IS COLLECTING...JUST WAIT..." 

6111@ GOTO 349 


81126 A=INT(10*RND) +1 
@1136 IF A>2 THEN 1249 


@1148 PRINT “YOU HAVE ARRIVED AT AN OASIS." 
@115@ PRINT "YOUR CAMEL IS FILLING YOUR 
91168 Z=4 

91178 S=6 


1180 RETURN 


91198 PRINT "YOU DIRTY RAPSCALLION YOU RAN YOUR POOR CAMEL TO DEATH !" 


81288 GOTO 1416 


31218 PRINT “YOU WIN, A PARTY IS BEING GIVEN IN YOUR HONOUR " 


91228 PRINT "...THE PIGMIES ARE PLANNING TO ATTEND..." 
21230 GOTO 1566 

31248 WwW=INT(10@*RND) +1 

11250 IF W>5 THEN 1350 

J1260 PRINT "YOU HAVE BEEN CAUGHT IN A 
41276 B=INT(10*RND) +1 

11280 E=INT(10*RND) +1 

11296 IF E<5S THEN 1329 

11300 C=C+B 


11319 GOTO 1336 


‘(1326 C=C-B 

1338 PRINT "YOUR NEW POSITION IS ";C;" MILES SO FAR!" 
1348 RETURN 

1358 w=INT(180*RND) +1 

1360 IF w>S THEN RETURN 

137@ G=G+l 

138@ PRINT "YOUR CAMEL HURT HIS HUMP." 

1398 PRINT “LUCKILY THE PIGMIES WERE FOOTWEARY !!!" 


1395 PRINT 

140@ RETURN 

14108 U=INT(10*RND) +1 

1420 PRINT “YOU DIED IN THE DESERT." 
143@ IF U>1 THEN 1468 


1440 PRINT “THE NATIONAL CAMEL'S UNION IS" 


@1445 PRINT "NOT ATTENDING YOUR FUNERAL!" 
81458 GOTO 1566 


0146@ IF U>3 THEN 1496 


@1478 PRINT "YOUR BODY WAS EATEN BY VULTURES AND IMPORTED CANNIBALS! !" 


91488 GOTO 1569 

@1490 IF U>S THEN 1520 
1500 PRINT “THE LOCAL SHIEK NOW USES YOUR 
®@1510 GOTO 1568 

61526 IF U>7 THEN 155@ 

61530 PRINT "PEOPLE WITH LITTLE INTELLIGENCE" 


01535 PRINT “SHOULD STAY OUT OF THE DESERT!!" 


(Continued....) 


CANTEEN AND EATING FIGS." 


SANDSTORM...GOOD LUCK!" 


SKULL FOR A CHANGE PURSE" 


81548 GOTO 1568 


61558 
61560 
81578 
01588 
01598 
01608 
91626 
01638 
81648 
61658 
61655 
01657 
81668 
62000 
82810 
02020 
8203 
82049 
82050 
82068 


82070 


PRINT “TURKEYS SHOULD FLY, NOT RIDE CAMELS !!!1!1" 682205 CLS 
PRINT 02210 PRINT"C OMMANDS :" 
PRINT 92220 PRINT "#1 = DRINK FROM YOUR CANTEEN" 
PRINT "WANT A NEW CAMEL AND A NEW GAME "; @2230 PRINT "#2 = AHEAD MODERATE SPEED" 
INPUT DOS 62240 PRINT “#3 = AHEAD FULL SPEED" 
IF DOS="Y" THEN 320 02256 PRINT "#4 = STOP FOR THE NIGHT" 
GOTO 1658 82260 PRINT "#5 = STATUS CHECK" 
PRINT:PRINT "YOU RAN OUT OF WATER.... SORRY CHUM!!!" 62278 PRINT "#6 = HOPE FOR HELP" 
GOTO 141¢ 92275 PRINT 
PRINT "+---~------------ 62288 GOTO 484 
PRINT CHICKEN" 
PRINT "---------------- 
END 
z=4 
S=6 
C=8 
G=0 
Q=0 
F=0 
P=0 
RETURN 
15. SHELL GAME. 
This program was sent in by:- 

Mr Chris Owen, 

23 Clifford Street, 

Dover Gardens, 50948. 
This game is based on the traditonal game of shells. You have to 
guess under which shell the pea is hiding. The computer shuffles 


the shells around for you. 


5S REM MODIFIED FROM IDEA 
6 REM OFF AN H/P MACHINE 
7 REM CJO @3/87/82 FOR SUPER 8@ 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


"THIS IS A COMPUTER VERSION " 
"OF THE FAST HAND TRICK" 
"THERE ARE THREE SHELLS ( )" 
"ONE HAS A PEA UNDER IT (xX)" 


"WATCH CLOSLEY" 
"WHEN YOU ARE READY- HIT ZERO 
R 


g" 


FOR X=l TO 590 
B=INT(RND*3) 

READ (1@0+B) A@S 
CURS 327:PRINT " 1 
CURS 359:PRINT AQ@S 
NEXT X 

CURS 359:PRINT " () (). ( 
PRINT 

INPUT "WHERES THE PEA"Q 

IF Q=B THEN 15@ ELSE 200 
DATA" (X) ( ) ( )" 

DATA" ( ) (X) ( )" 

DATA" ( ) .( )  (X)" 

PRINT "LUCKY GUESS" 

PRINT "WANT TO TRY AGAIN?" 


2 3" 


(Continued....) 
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178 INPUT A2S 

18@ IF A2S="YES" THEN 9 

185 CLS 

190 PRINT TAB (18) “CHICKEN":END 


PRINT "YOU BLEW IT...TRY AGAIN??" 
GOTO 179 


200 
212 


16. GRAPHICS DEMO. 


The following program was sent in by:- 


BQ002 
Q0003 
BOA04 
QBGQ05 
00010 
88015 
BQ2016 
0020 
00030 
B0035 
00037 
02040 
80050 
20060 
020070 
82080 
02090 
20100 
00110 
00120 
00132 
00140 
00150 
201460 
20172 
0018 
00190 
20200 
002710 
00220 
00230 
00240 
Q0259 
007250 
202772 
00-80 
00310 
003270 
00330 


Mr Jim Dilworth, 

63 Dexter Street, 
NOTE: Cook, ACT, 2614- 
The program is configured for a Super 898 with 48K of RAM and the 
Deluxe Character Generator fitted. It is written in BASIC. It 
Shows you the full character set available on the generator. 


Also a demo of Space Invaders and Space Warp Take-Over. 


CLS*PRINT TAPB(CS5)3"GRAPHICS DEMONSTRATION" 
PRINT TAR (5) 5 "ss==S23222S2S=2=S=2==SS===" 
GOSUP 14600 

GOSUPB 180@: RESTORE 

CLS: I=0 

READ A 

IF A=999:GOTO 37 

CURS (A) 

PRINT CA1 1275A1 45A1 127193 

T=I+12GoOTO 15 
CURS (471):PRINT 
GOSUP 1600 

DATA 245.3545, 75,11,13,14 
DATA 155316,19,20,21,22,23 
DATA 255 26,27, 28, 33537; 39 
DATA 43,45,49,51,57;61 
DATA 65;3,71,75,77,81,83 
DATA 89,93, 978,99, 120 

DATA 103,107,109,110,111 
DATA 112,115,116,117,118 
DATA 121,122,123,124 

DATA 133,135,139,141,147 
DATA 153,155,161,165,167 
DATA 171,173,179,185,188 
DATA 194,195,196, 200, 201 
DATA 202,205, 211,212,213 
DATA 214,215, 217,221 

DATA 267,268, 2694273, 274 
DATA 275,298, 302, 304, 308 
DATA 330, 334, 335, 340, 563 
DATA 364, 365,368, 372 

DATA 394, 398, 400, 404 

DATA 426,436, 432,436 

DATA 459,460,461, 465 

DATA 466,467,339; 370, 401 
DATA 999 
D=14°E=13:F=12:G=11 

GOSUP 1010 
CURS (65) =PRINT 


"SUPER 8Q" 


"HELLO! I’M your SUPER-8@ MICRO" 


(Continued....) 
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00340 
00340 
20370 
20380 
20390 
20420 
00425 
22430 
20435 
20440 
20445 
20450 
22440 
20445 
20492 
20495 
00497 
20500 
90502 
20505 
90512 
90512 
90513 
90515 
90520 
90521 
90525 
90526 
90530 
20535 
20540 
20545 
20555 
20542 
00545 
20570 
20575 
00577 
20580 
20585 
20590 
20595 
00594 
00597 
20598 
20599 
20600 
20405 
20412 
90611 
Q0612 
22613 
90615 
20620 
90625 
006230 
20635 
00637 
20642 
00645 
20652 
20440 


CURS(129) PRINT TAP(4)35"1I can do a lot of things." 
GOSUPR 14600 

D=147°E=141 :F=140:G=139 

GOSUP 1015 

CURS(65):PRINT " LET ME show you some of my “ 
CURS(129) =PRINT SPC(9)3 "CHARACTER SET " 
GOSUP 1700 

J=@ 

IF J=127: J=J+i1 

D=J:E=J*sF=J2G=J 


CURS (235) :PRINT " “J5" " 
GOSUP 10615 

JHJ+5@0°0F Je255°G0TO 492 
GOTO 435 

GOSUP 1015 

CURS (65):PRINT" NOW THE WHOLE SET 
CURS (235) :PRINT SPC(1Q) = Xx=@ 
GOSUP 1600 

GOSUP 1700 

FOR I=67 TO 414 STEP S32 

J=0 


X=X+121F X=1272X=X+1 

IF X=256 THEN NEXT* I 5265 

CURS (I+J):PRINT CA1l 1275A1 XS5A1 127) 
J=aJ+12IF J=25°G0TO 525 

GOTO 512 

NEXT I 

GOSUP 1600 

CLS 

D=255 E=255 F=255°G=255 

GOSUP 1015 

CURS(65):PRINT " SPACE INVADERS?" 
CURS(23@) SPRINT CAI 1275Al 275A1 127] 

CURS (244) 5PRINT CAI 1275A1 285A1 295A1 127] 
W=2 

T=231 

CURS(CI+1)° PRINT CA1 1275A1 145A1 127) 
CURS(CTI) SPRINT CAl 12735A1 S325A1 127) 

IF T=244:CURS (244)2PRINT CAL 1275A1 SisAl 127] 
IF T=245:CURS(244) PRINT CA1 1275A1 325A1 S15A1 127 
I=I+1:1IF [=246:GOTO 596 

GOTO 575 

CURS(246)=PRINT CAL 1275A1 325Al1 127] 
CURS(244):2PRINT CAL 1275A1 285A1 295A1 127] 
W=W+1SIF W=S5:GOSUP 146400:G0TO 600 


GOTO 5378 

D=16@0°E=160°F=160:6=150 

GOSUP 1019 

CURS(65):2PRINT " SPACE-WARP TAKE-OVER " 


CURS(385):PRINT "Press any key during the next" 
CURS(417):PRINT "picture and see what happens?" 
GOSUP 1600: GOSUP 14600 

E=USR( 15384) 


GOSUPR 1600 

F=160:D=16@0:F=160:G=160:GOSUP 1010 
CURS(65):PRINT " SPACE-WARP TAKE-OVER " 
CURS(129)=2PRINT " at High Speed" 

GOSUPR 1600 


POKE 16597, 1 
E=USR( 16384) 
POKE 16507,8@:GOSUP 1620 


D=16°E=26:F=20:G=17 . 
(Continued....) 
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Q2665 
20470 
20675 
22480 
20692 
22495 
20700 
20725 
00712 
@0715 
20720 
20725 
20730 
01210 
@1015 
21020 
21030 
01040 
01045 
21050 
21060 
01070 
21072 
91075 
21076 
21080 
21290 
21095 
91120 
01110 
21120 
01130 
01135 
01152 
21420 
01605 
21410 
21720 
01710 
218200 
21810 
21820 
21830 
‘01840 
01850 
21840 
21870 
21880 
21890 
21920 
21910 
1920 
01930 
21940 
01950 
21940 
01962 
21944 
21946 
01968 
01970 


GOSUP 1010 
CURS(65):PRINT " 
GOSUP 2009 

GOSUB 1600 
D=422E=42°5F=42°G=42 
GOSUP 1010 
CURS(65):PRINT " 
CURS(129)2PRINT “ 
CURS(289)=PRINT "“ 
CURS (321) :PRINT " 
GOSUPR 1600: GOSUP 16400 

CLEAR: CLS: RESTORE:GOTO 1@ 

END 

CLS 

A=Q0: P=31°C=447 

I=A 

CURS(I): PRINT CAI 12735A1 DsAl 1273 

T=I+1:1IF I=BsGOTO 18050 

GOTO 18030 

I=B 

CURS(T) SPRINT CAL 1275A1 EsA1 12795 

T=I+3220F I=C8C=C+325GOTO 1075 

GOTO 1062 

CURS(447) PRINT CAI 1275A1 ESA1 127] 

POKE 49119,E 

I=C-1 

CURS(I) SPRINT CA1l 1273A1 FSA1 127] 

T=I-1:8IF [=C-32: C=C-32:G0TO 1110 

GOTO 1090 

I=C-31 

CURS(I) SPRINT CA1l 1275A1 G3§A1 127] 

T=[-32:1IF I<32:GOTO 1159 

GOTO 1120 

RETURN 

CURS (444): 1=@ 

T=I+129IF [T=25@: RETURN 

GOTO 16@5 

CURS(385):PRINT CA1 1275A3@ 325A1 127) 

RETURN 

READ (1860) A 

T=16384 

IF A=999:GOTO 1850 

READ A:POKE I,A 

I=I+1:°GOTO 1820 

RETURN 

DATA 8 85 18 a 3h oa Daal Loos dele lee 


DATA 0,40,5,18,3, 35,24, 243, 1,255; » 1 C350 191905 19716 

DATA 27,35,126;195, 135, 64,254, 32340, 4554, 31524, 6,43, 62 

DATA 325119,35, 112,193, 11,121,176, 32, 228, 201,0,0, 245,197, 229 

DATA 33,228,191, 205, 865 64, 33, 2365 1915 2055 86, 64, 33,244, 1915 205 

DATA Bb, 645 2255 193y 2414 201 5 1975 2155 174 325 Dy by 165 1265 254, 27 

DATA 3253554551955, 625 1151195 2055 1205 645 62, 32,119, 237 

DATA 82, 16,2355 62, 32,119, 209, 193, 201, 245 

DATA 197, 158Q) 50,05 115 1215 1765 32) 249, 193, 2 

DATA 245,229,197) 213,33, 2497, 191,17, 32 

DATA 0165165126, 254, 124, 40, 33, 205, 10,192, 40, 21,43, 126,35 

DATA 254527540, 30, 62, 124, 1195 237,825 43, 126, 355 254,27, 40 

DATA 18, 165 242, 209,193, 2255 24151955 225,64, 62, 325 119, 237, 82,16 

DATA 2515245240, 33, 15190, 152555 15 62,325 119,35, 11,121,176 

DATA 32,247,209, 193,225,241, 1,255,255, 11,121,176, 32,251,193 
195,054,205, 61,64, 195, 38, 64,0,0,0,0,0,0,0,0,0 


DATA 
(Continued....) 


CHESS IS POSSIPLE" 


THIS HAS BEEN A" 
DEMONSTRATION ONLY" 
There are no games on this" 
programme" 


41,201 
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G1972 
01974 
@1976 
92020 
02010 
02020 
02030 
02040 
02045 
02050 
02060 
02500 
02510 
02520 
02530 
02540 
O2550 
02560 
02572 


DATA 
DATA 
DATA 
READ 
I=] 

READ 


190,62, 190, 88,191,18,190, 102, 190,174,191,59,191,5 72,191 
98,191,206, 190, 169, 190, 200, 198, 202, 190, 233,0,0,0,0,0 
BO, 159,159, 1595 425 42, 42,425 425 425 7485 10,950,999 

(2500) A?C=139: B=0 


A 


CURS(I+C):PRINT CA1 1275A1 ASAI 127] 
I=I+i1sIF I=9:GOTO 2050 


GOTO 


2020 


C=C+3Z2:R=P+1:1IF B=8: RETURN 


GOTO 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


2010 
@,144,17,146,19,148,18,145,16 
15,143,15,143,155143,15,143 
160, 32, 160, 32, 160, 32,160, 32 
323168, 32,160, 32, 160, 32, 160 
160, 32, 160, 32, 168, 32, 160, 32 
32,160, 32,160, 32, 160, 32, 160 
149,21,149,21,149,21,149,21 
2275151,24,154, 25,152,243, 150 


34 


NOTES 


NOTES 


NOTES 


NOTES 


NOTES 


